Filename: /text/sbasic/shared/03120308.xhp

RSet Statement [Runtime]
RSet ステートメント [実行時](hd_id3153345.1)

Right-aligns a string within a string variable, or copies a user-defined variable type into another.
文字列変数中に右揃えで文字列を格納するか、ユーザー定義型の変数を他のユーザー定義型の変数にコピーします。(par_id3150503.2)

Syntax:
構文:(hd_id3149234.3)

RSet Text As String = Text or RSet Variable1 = Variable2
RSet Text As String = Text ないし RSet Variable1 = Variable2(par_id3150669.4)

Parameters:
パラメータ:(hd_id3156024.5)

Text: Any string variable.
Text: 文字列変数。(par_id3148552.6)

Text: String that you want to right-align in the string variable.
Text:文字列変数中に右揃えで格納する文字列。(par_id3154924.7)

Variable1: User-defined variable that is the target for the copied variable.
Variable1: コピーする変数のターゲットとなるユーザー定義型の変数。(par_id3149456.8)

Variable2: User-defined variable that you want to copy to another variable.
Variable2: 他の変数へコピーするユーザー定義型の変数。(par_id3153381.9)

If the string is shorter than the string variable, RSet aligns the string to the right within the string variable. Any remaining characters in the string variable are replaced with spaces. If the string is longer than the string variable, characters exceeding the length of the variable are truncated, and only the remaining characters are right-aligned within the string variable.
文字列が文字列変数よりも短い場合、RSet は、該当文字列だけを文字列変数中に右揃えで格納します。文字列変数の残りの部分は、スペース記号が挿入されます。文字列が文字列変数よりも長い場合、文字列中の超過分の文字は切り捨てられ、残りの部分が文字列中に右揃えで収められます。(par_id3154140.10)

You can also use the RSet statement to assign variables of one user-defined type to another.
RSet ステートメント では、ユーザー定義型の変数を他の変数にコピーすることもできます。(par_id3149202.11)

The following example uses the RSet and LSet statements to modify the left and right alignment of a string.
下記の例では、RSet および LSet ステートメントを使って、文字列の右および左揃え処理を行っています。(par_id3151042.12)

Example:
例:(hd_id3154909.13)

Sub ExampleRLSet
Sub ExampleRLSet(par_id3154218.14)

Dim sVar as string
Dim sVar as string(par_id3147288.15)

Dim sExpr as string
Dim sExpr as string(par_id3153367.16)

sVar = String(40,"*")
sVar = String(40,"*")(par_id3153952.18)

sExpr = "SBX"
sExpr = "SBX"(par_id3154013.19)

REM Right-align "SBX" in a 40-character string
REM 40 文字長の文字列変数中に「SBX」を右揃えで格納します(par_id3155856.20)

REM Replace asterisks with spaces
REM アスタリスク記号は、スペース記号で置き換えられます(par_id3152577.21)

RSet sVar = sExpr
RSet sVar = sExpr(par_id3149260.22)

Print ">"; sVar; "<"
Print ">"; sVar; "<"(par_id3156444.23)

sVar = String(5,"*")
sVar = String(5,"*")(par_id3148575.25)

sExpr = "123457896"
sExpr = "123457896"(par_id3153140.26)

RSet sVar = sExpr
RSet sVar = sExpr(par_id3153144.27)

Print ">"; sVar; "<"
Print ">"; sVar; "<"(par_id3150116.28)

sVar = String(40,"*")
sVar = String(40,"*")(par_id3154491.30)

sExpr = "SBX"
sExpr = "SBX"(par_id3149412.31)

REM Left-align "SBX" in a 40-character string
REM 40 文字長の文字列変数中に「SBX」を左揃えで格納します(par_id3145801.32)

LSet sVar = sExpr
LSet sVar = sExpr(par_id3145646.33)

Print ">"; sVar; "<"
Print ">"; sVar; "<"(par_id3154511.34)

sVar = String(5,"*")
sVar = String(5,"*")(par_id3153839.36)

sExpr = "123456789"
sExpr = "123456789"(par_id3149122.37)

LSet sVar = sExpr
LSet sVar = sExpr(par_id3150330.38)

Print ">"; sVar; "<"
Print ">"; sVar; "<"(par_id3154480.39)

End Sub
End Sub(par_id3148914.40)